home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source2.lha / Source / Library / Util.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.4 KB  |  72 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: Util.mod $
  4.   Description: Utility procedures
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 1.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 00:40:27 $
  10.  
  11.   Copyright © 1994-1995, Frank Copeland.
  12.   This file is part of the Oberon-A Library.
  13.   See Oberon-A.doc for conditions of use and distribution.
  14.  
  15. ***************************************************************************)
  16.  
  17. <* MAIN- *> <*$ LongVars+ *>
  18.  
  19. MODULE Util;
  20.  
  21. PROCEDURE MaxShortint * (a, b : SHORTINT) : SHORTINT;
  22.  
  23. BEGIN
  24.   IF a > b THEN RETURN a END; RETURN b
  25. END MaxShortint;
  26.  
  27. PROCEDURE MinShortint * (a, b : SHORTINT) : SHORTINT;
  28.  
  29. BEGIN
  30.   IF a < b THEN RETURN a END; RETURN b
  31. END MinShortint;
  32.  
  33. PROCEDURE MaxInt * (a, b : INTEGER) : INTEGER;
  34.  
  35. BEGIN
  36.   IF a > b THEN RETURN a END; RETURN b
  37. END MaxInt;
  38.  
  39. PROCEDURE MinInt * (a, b : INTEGER) : INTEGER;
  40.  
  41. BEGIN
  42.   IF a < b THEN RETURN a END; RETURN b
  43. END MinInt;
  44.  
  45. PROCEDURE MaxLongint * (a, b : LONGINT) : LONGINT;
  46.  
  47. BEGIN
  48.   IF a > b THEN RETURN a END; RETURN b
  49. END MaxLongint;
  50.  
  51. PROCEDURE MinLongint * (a, b : LONGINT) : LONGINT;
  52.  
  53. BEGIN
  54.   IF a < b THEN RETURN a END; RETURN b
  55. END MinLongint;
  56.  
  57. PROCEDURE PowerOfTwo * (power : SHORTINT) : LONGINT;
  58.  
  59. VAR
  60.   result : LONGINT;
  61.  
  62. BEGIN
  63.   result := 1;
  64.   WHILE power > 0 DO
  65.     result := result * 2;
  66.     DEC(power);
  67.   END;
  68.   RETURN result;
  69. END PowerOfTwo;
  70.  
  71. END Util.
  72.